;;;QQ:67762207
[@Area11_Map1]
{


#IF
checkhum DQ605_001 1
#ACT
goto @Area11Map1_STEP1
break

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide11\Humrecord.txt" [] [¼1] %A0

#IF
Equal A0 %USERNAME
Equal D0 31
Equal D1 4
checkitem  1

#ACT
MonClear DQ605_001
GOTO @Area11Map1_STEP3
BREAK

#IF
Equal A0 %USERNAME
Equal D0 31
Equal D1 5
#ACT
MonClear DQ605_001
GOTO @Area11Map1_STEP4
BREAK

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSql "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@hagulMap2_Next]

[@hagulMap2_Next()]
#IF
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)
mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 31
Equal D1 5
#ACT
MonClear DQ605_001
GOTO @Area11Map1_STEP2
BREAK

#IF
Equal A0 %USERNAME
Equal D0 31
Equal D1 4
checkitem  1
#ACT
MonClear DQ605_001
GOTO @Area11Map1_STEP2
BREAK

#IF
Equal A0 %USERNAME
#SAY
Īסˣȥˡ\\
< /@exit>
#ACT
BREAK

[@Area11Map1_STEP2]
#IF
#SAY
_Խȥˡʮֵľȥ\\
< /@exit>

[@Area11Map1_STEP3]
#IF
#ACT
Enter_ok
take  1
MongenP "DQ605_001,38,54,10" ǹ 1
MongenP "DQ605_001,38,54,10" 佫 10
MongenP "DQ605_001,35,58,10" ʿ 10
MongenP "DQ605_001,33,55,10" ù 10
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSql "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=5"
#SAY
_ˣˡ\\
< /@exit>

[@Area11Map1_STEP4]
#IF
#ACT
Enter_ok
MongenP "DQ605_001,38,54,10" ǹ 1
MongenP "DQ605_001,38,54,10" 佫 10
MongenP "DQ605_001,35,58,10" ʿ 10
MongenP "DQ605_001,33,55,10" ù 10
#SAY
_ˣˡ\\
< /@exit>

[@Area11Map1_STEP1]
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide11\Humrecord.txt" [] [¼1]
Enter_Fail
#SAY
ĿǰȥˣΪһ<$OUTPUT(A1)>棬ǵһٽȥɡ\\
< /@exit>

}
;;;QQ:67762207
